home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
tab100
/
tab.gbl
< prev
next >
Wrap
Text File
|
1995-09-06
|
4KB
|
148 lines
''''''''''''''''''''''''''
' Application Globals
''''''''''''''''''''''''''
Global Const App$ = "Tablanette"
Global Const CardSpace = 50 'Space between cards
Global Cards(1 To 52) As Integer 'Shuffled Deck
Global Suits(1 To 4) As String
Global CardNo As Integer
Global TableNo As Integer
Global PlayerNo As Integer
Global ComputerNo As Integer
Global PSCore As Integer
Global CSCore As Integer
Global PlayerCardsNo As Integer
Global ComputerCardsNo As Integer
Global EqualRankGone(1 To 13) As Integer
Global TableArray(1 To 15) As Integer
Global NewTableArray(1 To 15) As Integer
Global ValidPlay(1 To 6) As String * 1
Global TableTotal As Integer
Global Equal(1 To 3) As Integer
Global Valid(1 To 10) As String
Global OptionSelected As Integer
Global GameSwitch As Integer
Global Const PLAYER_MOVE = 0
Global Const COMPUTER_MOVE = 1
Global DealSwitch As Integer
Global Const PLAYER_DEAL = 0
Global Const COMPUTER_DEAL = 1
Global PickUpSwitch
Global Const PLAYER = 0
Global Const COMPUTER = 1
Global TypeOfPlay(1 To 6) As Integer
Global Const TABLENETTE = 1
Global Const JACK = 2
Global Const ONECARD_NOEQUAL = 3
Global Const ONECARD_ONEEQUAL = 4
Global Const TOTAL_12 = 5
Global Const THREECARDS_PLUS = 6
Global Const TWOCARDS = 7
Global Const REJECTED_MOVE = 8
Global TypeOfDiscard(1 To 7) As Integer
''''''''''''''''''''''''
' General declarations '
''''''''''''''''''''''''
' WinHelp API declaration
Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
' WinHelp command constants
Global Const HELP_CONTEXT = 1
Global Const HELP_QUIT = 2
Global Const HELP_DiaryIndex = 3
Global Const HELP_HELPONHELP = 4
' MsgBox() function Button and Icon Types
Global Const MBB_OK = 0
Global Const MBB_OKCAN = 1
Global Const MBB_ABRECAN = 2
Global Const MBB_YNCAN = 3
Global Const MBB_YN = 4
Global Const MBB_RECAN = 5
Global Const MBI_STOP = 16
Global Const MBI_QUES = 32
Global Const MBI_WARN = 48
Global Const MBI_INFO = 64
' MsgBox() function command constants
Global Const MB_OK = 1 'OK pressed
Global Const MB_CANCEL = 2 'Cancel pressed
Global Const MB_ABORT = 3 'Abort pressed
Global Const MB_RETRY = 4 'Retry pressed
Global Const MB_IGNORE = 5 'Ignore pressed
Global Const MB_YES = 6 'Yes pressed
Global Const MB_NO = 7 'No pressed
' Booleans
Global Const TRUE = -1
Global Const FALSE = 0
' Show parameters
Global Const MODAL = 1
Global Const MODELESS = 0
' System Colors
Global Const DESKTOP = &H80000001 ' Desktop
Global Const APPLICATION_WORKSPACE = &H8000000C ' Application Workspace
Global Const WINDOW_BACKGROUND = &H80000005 ' Window Background
Global Const WINDOW_TEXT = &H80000008 ' Window Text
Global Const MENU_BAR = &H80000004 ' Menu Bar
Global Const MENU_TEXT = &H80000007 ' Menu Text
Global Const ACTIVE_TITLE_BAR = &H80000002 ' Active Title Bar
Global Const INACTIVE_TITLE_BAR = &H80000003 ' Inactive Title Bar
Global Const TITLE_BAR_TEXT = &H80000009 ' Title Bar Text
Global Const ACTIVE_BORDER = &H8000000A ' Active Border
Global Const INACTIVE_BORDER = &H8000000B ' Inactive Border
Global Const WINDOW_FRAME = &H80000006 ' Window Frame
Global Const SCROLL_BARS = &H80000000 ' Scroll Bars
' Colors
Global Const BLACK = &H0&
Global Const RED = &HFF&
Global Const GREEN = &HFF00&
Global Const YELLOW = &HFFFF&
Global Const BLUE = &HFF0000
Global Const MAGENTA = &HFF00FF
Global Const CYAN = &HFFFF00
Global Const WHITE = &HFFFFFF